MK 152 COMPUTER 
REPERTOIRE OF INSTRUCTIONS 



INSTRUCTION .WORD 



FORMAT I 



1 7-f-1 2 


11-u-O 





format n 



1 7-f-1 2 


1 1 -m -6 


5-k-0 







f m 


SYMBOL 


INSTRUCTION 


DESCRIPTION 




TIME 




# 10 * 


ENTAU ! 


ENTER AU WITH (Y) 


(Y) * AU 




4 


DC 

LU 


# 12 * 


ENTAL 


ENTER AL WITH (Y) 


(Y) * AL 




4 


h- 


# 32* 


ENTB 


ENTER B REGISTER WITH (Y) 


(Y) * B REGISTER 




4 


Z 

LU 


36* 


ENTBK 


ENTER B REGISTER WITH CONSTANT 


Y + B REGISTER (Note 1) 




2 




70 


ENTALK 


ENTER AL WITH CONSTANT 


Y + AL (Note 1) 




2 




50 72 


ENTICR 


ENTER INDEX CONTROL REGISTER 


k 2 -0 + 1 CR 




2 




50 73 


ENTSR 


ENTER SPECIAL REGISTER 


k 4 _Q +■ S R 




2 




# 40* 


CL 


STORE ZERO { CLEAR Y) 


0 *Y 




4 ' 




it 42* 


STRB 


STORE B IN Y 


B * Y 




4 




# 44* 


STRAL 


STORE (AL) IN Y 


(AL) * Y 




4 - 


LU 

cr 


#46* 


STRAU 


STORE (AU) IN Y 


(AU) + Y 




4 


O 


72 


STRICR 


STORE ICR IN Y l 


(ICR) + Y 3-0; (Y) 17 . 6 UNCHANGED (Y) 4+5 = 0 




4 


h- 

00 


75 


STRSR 


STORE SR IN Y|_ 


(SR) + Y 5 . 0 ; (Y) 17 . 6 UNCHANGED ; 0 *SR 




4 




74 


STRADR 


STORE ADDRESS IN Y j_ 


(AL)n_o+ Y-j-j.q; (Y) 17 _ 12 UNCHANGED 




4 




# 14* 


ADDAL 


ADD (Y) TO AL 


(AL) + (Y) * AL 




4 




# 16* 


SUBAL 


SUBTRACT (Y) FROM AL 


(AL)- (Y)+AL 




4 


O 


# 20 * 


ADDA 


ADD (Y+1 , Y) TO A 


(A) + (Y+1, Y) + A 




6 


H 


# 22 * 


SUBA 


SUBTRACT (Y+1, Y) FROM A 


(A) - (Y+1, Y) * A 




6 


LU 


# 24* 


MULAL 


MULTIPLY AL BY (Y) 


(AL) x (Y) * A 




14 


X 


# 26* 


DIVA 


DIVIDE A BY (Y) 


(A) -r(Y) +AL; REMAINDER *AU 




14 


H 


71 


ADDALK 


ADD CONSTANT TO AL 


(AL) + Y * AL (Note 1) 




2 


DC 

< 


50 60 


RND 


ROUND AU 


+(AU) + AL 17 * AL); OR 1 IGNORE k 




2 



EXEC 



(AU) - AI_i 7 *AL) 



AU f - AUj 



37 


ENTBKB 


MODIFY B WITH CONSTANT 


B + Y * B REGISTER (Note 1) 


2 


56 


BSKP 


B SKIP | 


IF B=(Y), SKIP Nl; 

; IFB# (Y), B + 1 * B REGISTER & DO Nl 


4 


57 


ISKP 


INDEX SKIP | 


[ IF (Y) = 0, SKIP Nl; 

1 IF (Y) 9^0, (Y) - 1 * Y & DO Nl 


6 


73 - 


BJP 


B JUMP 1 


( IF B^0, B-1 * B REGISTER AND Y *P 


2 



O' 



IF B = 0, DO Nl 





30* 


IRJP 


INDIRECT RETURN JUMP 


(P) + 1 *(Y); (Y) + 1 *P (Note 2) 


6 


-O 


34* 


JP 


UNCONDITIONAL JUMP 


Y*P 


2 


c 

0 


54 


IJPEI 


IND. JUMP & ENABLE INT. 


(Y) * P & ENABLE INTERRUPTS 


4 


0 

c 


55 


UP 


INDIRECT JUMP 


(Y) + P 


4 


D 


76 


RJP 


DIRECT RETURN JUMP 


(P) + 1 + Y; Y + 1 +P (Note 2) 


4 



JUMP TO Y (Y + P) IF COMPARISON DESIGNATOR IS: 



NOT SET AND 



60 JPAUZ (AU) = 0 

61 JPALZ (AL) = 0 

62 JPAUNZ (AU) 

63 JPALNZ (AL) =£o 

64 JPAUP (AL) POSITIVE 

65 JPALP (AL) POSITIVE 

66 JPAUNG (AU) NEGATIVE 

67 JPALNG (AL) NEGATIVE 



SET AND 



SET COMPARE DESIGNATOR 
WITH 02, 03 or 06, 07 INST. 



JPEQ M = (AL) (EQUALff SET) 

JPNOT M #(AL) (EQUAL ff NOT SET) 
JPMLEQM (AL) (GREATER ff SET) 
JPMGR M > (AL) (GREATER ff NOT SET) 



M = (Y), 

(AL) f = (AL)j 

FOR f = 02, 03 

M = L(Y) (AU), 
(AL) = L(AU)(AL) 
FOR f = 06, 07 



EXEC 
TIME 
2 
2 
2 
2 
2 
2 
2 
2 



LEGEND: 

Y = y©y + B 
y = Up© u SR © u x 

B = CONTENTS OF 

INDEX REGISTER 



* SR SENSITIVE (02 * 2 7, 32, 33, 40 * 47) 

* B MODIFICATION of "y" REQIESTED: ADD SUFFIX "B" TO SYMBOL and "1 " 
to EVEN f-codes 02 *46 

NOTES: 1. For f- 36, 37, 70, 71; y - u extended with sign to 18 bits. 

2. RETURN JUMPS, executed from Interrupt Entrance Registers, Store (P). 

3. IGNORE k. 

4. CHANNEL GROUP SPECIFIED BY k. 



Nl = NEXT INSTRUCTION 

P"' 



9ND-FT Sch-13530 (4-73) 










REPERTOIRE OF INSTRUCTIONS 



N. 


f 


m 


SYMBOL 


JL. 


# 


02* 


CMAL 


_l 


# 


06* 


CMSK 


< 


# 


04* 


SLSU 


o 

o 

o 




51 


SLSET 




52 


SLCL 


_i 




53 


SLCP 






50 61 


CPAL 






50 62 


CPAU 






50 63 


CPA 



INSTRUCTION 



COMPARE SET DESIGNATOR 
COMPARE WITH MASK SET DES. 
SELECTIVE SUBSTITUTE 
SELECTIVE SET (INCLUSIVE OR) 
SELECTIVE CLEAR (LOGICAL PROD.) 
SELECTIVE COMPLEMENT (EXCL OR) 
COMPLEMENT AL 1 



COMPLEMENT AU 
COMPLEMENT A 



( NOTE 3 ) 



DESCRIPTION 



( A L) ; ( Y) , (AL) f = (AL)j 

UAL) (AU):L(Y)(AU); (A) f = (A); 

L(AU)'(AL)+L(AU)(Y) *AL; (AU) f = (AU)j 

(AL)v(Y) * AL; SET (AL) n FOR (Y) n = 1 

L( AU) (Y) ->AL; CLEAR (AL) n FOR ( Y) n = 0 

(AL) (+) (Y) ML; COMPLEMENT (AL) FOR(Y) 

n r 

(AL)'->AL 
(AU)' AL 
(A)'->- A 



RSHAU 
RSHAL 
RSH A 



RIGHT SHIFT AU 
RIGHT SHIFT AL 
RIGHT SHIFT A 



SHIFT (REG.) RIGHT k BITS 
POSITIONS, END OFF & FILL THE 
UPPER BITS WITH INITIAL SIGN 



SCALE FACTOR SHIFT 



LEFT CIRCULAR SHIFT A UNTI L Agg^ Ag 4 

OR k-SHIFTCOUNT = 0 

THEN K - SHIFT COUNT * 00017 



50 45 


LSHAU 


50 46 


LSHAL 


50 47 


LSH A 


50 51 


SKPNBO 


50 52 


SKPOV 


50 53 


SKPNOV 


50 54 


SKPODD 


50 55 


SKPEVN 


50 21 


SKPIIN 


50 22 


SKPOIN 


50 23 


SKPFIN 


50 50 


SKP 


50 57 


SKPNR 


50 01 


SIN 


50 02 


SOUT 


50 03 


SEXF 


50 11 


IN 


50 12 


OUT 


50 13 


EXF 


50 14 


RTC 


50 15 


INSTP 


50 16 


OUTSTP 


50 17 


EXFSTP 


50 20 


SRSM 


50 26 


OUTOV 


50 27 


EXFOV 


50 30 


RIL 


50 32 


RXL 


50 34 


SIL 


50 36 


SXL 


50 24 


WTFI 


50 56 


STOP 



LEFT SHIFT AU 
LEFT SHIFT AL 
LEFT SHIFT A 



SKIP ON 
SKIP ON 
SKIP ON 
SKIP ON 
SKIP ON 



NO BORROW 
OVERFLOW 
NO OVERFLOW 
ODD PARITY 
EVEN PARITY 
INPUT INACTIVE 



(Note 3) 



SHIFT (REG.) LEFT k BIT 
POSITIONS CIRCULARLY 
01=X2 
02=X4 



SKIP Nl IF BORROW DESIGNATOR NOTSET 
SKIP Nl IF OVERFLOW DESIGNATOR SET 
SKIP Nl IF OVERFLOW DESIGNATOR NOTSET 
SKIP Nl IF SUM OF ONES IN L(AU)(AL) IS ODD 
SKIP Nl IF SUM OF ONES IN L(AU)(AL) IS EVEN 
SKIP Nl IF CHAN, k INPUT IS INACTIVE 



SKIP ON OUTPUT INACTIVE 

SKIP ON EXT. FUNCT. INACTIVE 

SKIP ON KEY SETTING k 

SKIP ON NO RESUME ( NOTE 4 ) 



SET INPUT ACTIVE 
SET OUTPUT ACTIVE 
SET EXTERNAL FUNCTION ACTIVE 
INPUT TRANSFER 

OUTPUT TRANSFER 

EXT. FUNCT. TRANSFER 

ENABLE REALTIMECLOCKMON.(Note 3) 
TERMINATE INPUT 
TERMINATE OUTPUT 
TERMINATE EXT. FUNCT. 

SET RESUME (NOTE 4) 

OUTPUT OVERRIDE 
FUNCTION OVERRIDE 
REMOVE INTERRUPT LOCKOUT\ 
REMOVE EXT. INT. LOCKOUT I „ 
SET INTERRUPT LOCKOUT / ” 
SET EXT. INT. LOCKOUT l £ 

WAIT FOR INTERRUPT [ 2 

STOP ON KEY SETTING 1 



SKIP Nl IF CHAN, k OUTPUT IS INACTIVE 
SKIP Nl IF CHAN, k EXT. FUNCT. IS INACTIVE 
SKIP Nl IF k = CONSOLEVEY SETTING 
SKIP Nl IF RESUME DESIGNATOR NOTSET 



SET INPUT ACTIVE F/F CHANNEL k 
SET OUTPUT ACTIVE F/F CHANNEL k 
SET EXTERNAL FUNCTION ACTIVE F/F CHANNEL k 
(P+1) -+60+2k; (P+2) 61+2k; 

SET INPUT ACTIVE F/F CHANNEL k 

(P+1) +-40+2k; (P+2) ■». 41+2k 

SET OUTPUT ACT. F/F CHANNEL k 

(P+1) +20+2k; (P+2) + 21+2k 

SET EX. FUNCT. ACT. F/F CHANNEL k 

ENABLE L(0001 5) (0001 4)&RTC OVERFLOW 

CLEAR INPUT ACTIVE F/F CHANNEL k 

CLEAR OUTPUT ACTIVE F/F CHANNEL k 

CLEAR EXT. FUNCT. ACT. F/F CHANNEL k 

SET THE RESUME DESI G NATO R( INTERCOMPUTER) 

FORCE ONE WORD OUT CHAN, k WITH OUT. ACK. 

FORCE ONE WORD OUT CHAN, k WITH EXT. FUNCT. 

ENABLE ALL INTERRUPTS 

ENABLE EXTERNAL INTERRUPTS 

DISABLE ALL INTERRUPTS 

DISABLE EXTERNAL INTERRUPTS 

STOP; THEN INTERRUPT ENTRANCE REG. FOR Nl 

STOP IF k = KEY SETTING 




00, 01. 77 FAULT - 2 usee JUMP TO ADDRESS 00000 or 00500 if AUTO RECOVERY is UP. 



ASSIGNED CORE MEMORY LOCATIONS (OCTAL) 

00000 FAULT ENTRANCE REGISTER 

00001-00010 INDEX REGISTERS 

00011 INTERCOMPUTER TIME-OUT INT. REG. 

00012 RTC INTERRUPT REGISTER 

00013 CLOCK OVERFLOW INT. REG. 

00014 RTC MONITOR WORD REGISTER 

00015 RTC INCREMENTING REGISTER 

00016 SYN. INTERRUPT REGISTER 

00017 SCALE FACTOR SHIFT COUNT 

00020-00037 EF & CONT. DATA MODE (CHAN 0-7)— 

00040-00057 OUT. BUFFER CONT. REG. (CHAN 0-7) 
00060-00077 IN. BUFFER CONT. REG. (CHAN 0-7) 



00540-03707 TALOS UPAK 
70000-72250 1219B UPAK-1B 

00100-00117 EXT. INT. REGISTERS (CHAN 0-7) 

00120-00137 EF MONITOR REGISTERS (CHAN 0-7) 
00140-00157 OUT. MON. REGISTERS (CHAN 0-7) 

00160-00177 IN. MON. REGISTERS (CHAN 0-7) 

00220-00237 EF & CIM BUFF. CONT. REG. (CHAN 10-17) 
00240-00257 OUT. BUFF. CONT. REGISTERS (CHAN 10-17) 
00260-00277 IN. BUFF. CONT. REGISTERS (CHAN 10-17) 
00300-00317 EXT. INT. REGISTERS (CHAN 10-17) 
00320-00337 EXF. MON. REGISTERS (CHAN 10-17) 
00340-00357 OUT. MON. REGISTERS (CHAN 10-17) 
00360-00377 IN. MON. REGISTERS (CHAN 10-17) 

00500-00537 BOOTSTRAP PROG. LOAD & AUTO RECOVERY 



DIGITAL COMPUTER MK 152-REPERTOIRE CARD 













